home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / eulisp / mpfeel.lha / MPFeel / Modules / st.em < prev    next >
Lisp/Scheme  |  1992-10-06  |  790b  |  32 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;                                                                           ;;
  3. ;;  EuLisp Module                     Copyright (C) University of Bath 1991  ;;
  4. ;;                                                                           ;;
  5. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  6.  
  7. (defmodule st
  8.  
  9.   (lists
  10.    list-operators
  11.    extras
  12.    streams
  13.    others
  14.    formatted-io
  15.    sockets
  16.    arith
  17.    vectors
  18.    tables) ()
  19.  
  20.   (deflocal local-display (getenv "DISPLAY"))
  21.   
  22.   (defun run-remote (exp host)
  23.     (let 
  24.       ((str 
  25.      (format nil "rsh ~a xterm -display ~a -g 80x10-10+10 -e 'feel -do \"~a\"'\n"
  26.                host local-display exp)))
  27. ;;      (system str)
  28.       str))
  29.  
  30. )
  31.  
  32.